
import SimpleJSON
--import PutJSON
import PrettyJSON

main = do
    let a = JNumber 4.2
    --putJValue (JNumber 4.2)
    let b = JObject[("queueId", JNumber 2), 
                ("zoneId", JNumber 1), 
                ("gridCount", JNumber 3),
                ( "grids", JArray [
                    JObject [("full", JBool True), ("dispatch", JBool False)],
                    JObject [("full", JBool False), ("dispatch", JBool False)],                    
                    JObject [("full", JBool True), ("dispatch", JBool True)],
                    JObject [("full", JBool True), ("dispatch", JBool True)]
                    ] )
                ]
    --putJValue b

    print "*************************"
